home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WWWworkbenchIB.lha / WWWworkbench / W4delete.ibrx < prev    next >
Encoding:
Text File  |  1998-09-09  |  1.2 KB  |  44 lines
  1. /* $VER: W4delete.ibrx  1.0
  2. *Made by Andres Pääbo (c)1998 : paabo@bancom.net
  3. */
  4. OPTIONS RESULTS
  5. screen=getclip('screen')
  6.  
  7.  
  8. ADDRESS 'IBROWSE'
  9. 'QUERY TITLE'
  10. currdir=result
  11. ADDRESS COMMAND 'REQUESTFILE > RAM:W4/resultstring   TITLE "Select files to DELETE" MULTISELECT NOICONS  DRAWER "'currdir'" FILE "select file(s) to delete" PUBSCREEN "'screen'"'
  12. if RC=5 then EXIT
  13. call open('resultstring','Ram:W4/resultstring',R)
  14. resultstring=readln('resultstring')
  15. resultstring=TRANSLATE(resultstring, ' ','"')
  16. resultstring=STRIP(resultstring)
  17. close('resultstring')
  18. len = LENGTH('resultstring')
  19. if RIGHT(resultstring,1)='/' then resultstring=LEFT(resultstring,len-1)
  20.  
  21.  
  22. ADDRESS COMMAND 'C:REQUESTCHOICE >RAM:W4/resultstring 
  23. "DELETE FILES"  "Do you really want to delete'resultstring '? " "OK|CANCEL" PUBSCREEN "'screen'"'
  24. call open('resultstring','Ram:W4/resultstring',R)
  25. response=readln('resultstring')
  26. close('resultstring')
  27. if response=0 then EXIT
  28.  
  29. i=0
  30. DO FOREVER
  31. i=i+1
  32. parse var resultstring filename.i filesrest
  33. ADDRESS COMMAND 'DELETE "'filename.i'" QUIET'
  34. if filesrest='' then BREAK
  35. resultstring=filesrest
  36. END
  37.  
  38. call setclip('refresh', 1)
  39. ADDRESS COMMAND  'Sys:RexxC/RX  WWWworkbench/WWWworkbench.ibrx'
  40. ADDRESS COMMAND 'DELETE  RAM:W4/resultstring QUIET'
  41.  
  42. EXIT 0
  43.  
  44.